home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PREVIEW.DIR / 00153_Script_utils II < prev    next >
Text File  |  1997-07-22  |  1KB  |  50 lines
  1. on killMovies startChan, endChan
  2.   if voidP(startChan) then set startChan = 1
  3.   if voidP(endChan) then set endChan = 48
  4.   repeat with channel = startChan to endChan
  5.     if the type of the member of sprite channel = #digitalVideo then
  6.       set the movierate of sprite channel to 0
  7.     end if
  8.   end repeat
  9. end
  10.  
  11. on fStartFirstVideo -- starts & returns first available sprite
  12.   global gDefaultVolume
  13.   repeat with channel = 1 to 48
  14.     if the type of the member of sprite channel = #digitalVideo then
  15.       set the movierate of sprite channel to 1
  16.       set the volume of sprite channel to gDefaultVolume
  17.       exit repeat
  18.     end if
  19.   end repeat
  20.   return channel
  21. end
  22.  
  23. on fBlankVideo startChan, endChan
  24.   global gDefaultVolume
  25.   if voidP(startChan) then set startChan = 1
  26.   if voidP(endChan) then set endChan = startChan
  27.   set chanList = []
  28.   repeat with channel = startChan to endChan
  29.     if the type of the member of sprite channel = #digitalVideo then
  30.       set the volume of sprite channel to gDefaultVolume
  31.       set the visible of sprite channel to 0
  32.       append chanList, channel
  33.     end if
  34.   end repeat
  35.   return chanList
  36. end
  37.  
  38. on fUNblank chanList
  39.   global gDefaultVolume
  40.   repeat with channel in chanList
  41.     set the volume of sprite channel to gDefaultVolume
  42.     set the visible of sprite channel to 1
  43.   end repeat
  44.   return true
  45. end
  46.  
  47. -- example:
  48. -- set chanList = fBlankVideo(gQTchan)
  49. -- go next
  50. -- set dummy = fUNblank(chanList)